home *** CD-ROM | disk | FTP | other *** search
/ Best Tools for JAVA / Best Tools for JAVA.iso / VIEWERS / VSVIEW / VSVIEW.ZIP / FMENU.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-11-07  |  9.2 KB  |  293 lines
  1. VERSION 2.00
  2. Begin Form fmenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "VideoSoft vsView Demo"
  6.    ClientHeight    =   4575
  7.    ClientLeft      =   525
  8.    ClientTop       =   1665
  9.    ClientWidth     =   8250
  10.    Height          =   5040
  11.    Left            =   435
  12.    LinkTopic       =   "Form3"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4575
  16.    ScaleWidth      =   8250
  17.    Top             =   1290
  18.    Width           =   8430
  19.    Begin CommandButton Command1 
  20.       BackColor       =   &H00C0C0C0&
  21.       Caption         =   "New Lic Info"
  22.       Height          =   495
  23.       Index           =   2
  24.       Left            =   6075
  25.       TabIndex        =   10
  26.       Top             =   435
  27.       Width           =   1830
  28.    End
  29.    Begin vsDraw VSDraw1 
  30.       BackColor       =   &H00C0C0C0&
  31.       BrushStyle      =   1  'Transparent
  32.       ConvInfo        =   FMENU.FRX:0000
  33.       FontBold        =   -1  'True
  34.       FontItalic      =   -1  'True
  35.       FontName        =   "Times New Roman"
  36.       FontSize        =   15.75
  37.       FontStrikethru  =   0   'False
  38.       FontUnderline   =   0   'False
  39.       Height          =   3090
  40.       Left            =   210
  41.       PenColor        =   &H0080FFFF&
  42.       PenWidth        =   1
  43.       ScaleHeight     =   200
  44.       ScaleWidth      =   200
  45.       TextColor       =   &H00FFFFFF&
  46.       Top             =   420
  47.       Width           =   3585
  48.    End
  49.    Begin CommandButton Command1 
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "&MDI"
  52.       Height          =   495
  53.       Index           =   4
  54.       Left            =   6090
  55.       TabIndex        =   5
  56.       Top             =   2310
  57.       Width           =   1830
  58.    End
  59.    Begin CheckBox Check1 
  60.       BackColor       =   &H00C0C0C0&
  61.       Caption         =   "Custom Frame"
  62.       Height          =   225
  63.       Left            =   4125
  64.       TabIndex        =   9
  65.       Top             =   675
  66.       Width           =   1800
  67.    End
  68.    Begin CommandButton Command1 
  69.       BackColor       =   &H00C0C0C0&
  70.       Caption         =   "Visual &Printer"
  71.       Height          =   495
  72.       Index           =   9
  73.       Left            =   4095
  74.       TabIndex        =   2
  75.       Top             =   1680
  76.       Width           =   1830
  77.    End
  78.    Begin vsInForm VSInForm1 
  79.       BarColor        =   &H00C0C0C0&
  80.       BarColorInactive=   &H00C0C0C0&
  81.       BarHeight       =   36
  82.       BarStyle        =   3  'Raised
  83.       ButtonsLeft     =   0  '0
  84.       ButtonsRight    =   2  '2
  85.       CapAlign        =   1  'Left Center
  86.       CapColor        =   &H00C0C0C0&
  87.       CapColorInactive=   &H00C0C0C0&
  88.       CapMultiLine    =   -1  'True
  89.       CapStyle        =   1  'Raised
  90.       Caption         =   "  VideoSoft VSView"
  91.       ClipMon         =   -1  'True
  92.       ConvInfo        =   FMENU.FRX:000B
  93.       FontBold        =   -1  'True
  94.       FontItalic      =   0   'False
  95.       FontName        =   "Arial"
  96.       FontSize        =   18
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       FrameColor      =   &H00C0C0C0&
  100.       FrameColorInactive=   &H00C0C0C0&
  101.       FrameCorners    =   0   'False
  102.       FrameSizing     =   0  'None
  103.       FrameStyle      =   3  'Raised Form
  104.       FrameWidth      =   12
  105.       Left            =   5115
  106.       MinHeight       =   870
  107.       MinWidth        =   3500
  108.       PictRight0      =   FMENU.FRX:0016
  109.       PictRight1      =   FMENU.FRX:00E8
  110.       Top             =   225
  111.    End
  112.    Begin CommandButton Command1 
  113.       BackColor       =   &H00C0C0C0&
  114.       Caption         =   "&ViewPort"
  115.       Height          =   495
  116.       Index           =   8
  117.       Left            =   6090
  118.       TabIndex        =   1
  119.       Top             =   1050
  120.       Width           =   1830
  121.    End
  122.    Begin CommandButton Command1 
  123.       BackColor       =   &H00C0C0C0&
  124.       Caption         =   "&Easy printing"
  125.       Height          =   480
  126.       Index           =   7
  127.       Left            =   4095
  128.       TabIndex        =   0
  129.       Top             =   1050
  130.       Width           =   1830
  131.    End
  132.    Begin CommandButton Command1 
  133.       BackColor       =   &H00C0C0C0&
  134.       Caption         =   "&16 && 32"
  135.       Height          =   480
  136.       Index           =   6
  137.       Left            =   6090
  138.       TabIndex        =   3
  139.       Top             =   1680
  140.       Width           =   1830
  141.    End
  142.    Begin CommandButton Command1 
  143.       BackColor       =   &H00C0C0C0&
  144.       Caption         =   "Visual &Clipboard"
  145.       Height          =   495
  146.       Index           =   3
  147.       Left            =   4095
  148.       TabIndex        =   4
  149.       Top             =   2310
  150.       Width           =   1830
  151.    End
  152.    Begin CommandButton Command1 
  153.       BackColor       =   &H00C0C0C0&
  154.       Caption         =   "&Borders FX"
  155.       Height          =   495
  156.       Index           =   1
  157.       Left            =   6090
  158.       TabIndex        =   7
  159.       Top             =   2940
  160.       Width           =   1830
  161.    End
  162.    Begin CommandButton Command1 
  163.       BackColor       =   &H00C0C0C0&
  164.       Caption         =   "&Floating Controls"
  165.       Height          =   495
  166.       Index           =   0
  167.       Left            =   4095
  168.       TabIndex        =   6
  169.       Top             =   2940
  170.       Width           =   1830
  171.    End
  172.    Begin Shape Shape1 
  173.       BackColor       =   &H00404040&
  174.       FillColor       =   &H00404040&
  175.       FillStyle       =   0  'Solid
  176.       Height          =   3060
  177.       Left            =   315
  178.       Top             =   525
  179.       Width           =   3585
  180.    End
  181.    Begin Label Label1 
  182.       Alignment       =   2  'Center
  183.       BackStyle       =   0  'Transparent
  184.       Caption         =   "VideoSoft 2625 Alcatraz Avenue, Suite 271, Berkeley, CA 94705"
  185.       Height          =   255
  186.       Left            =   105
  187.       TabIndex        =   8
  188.       Top             =   3780
  189.       Width           =   7890
  190.    End
  191. Option Explicit
  192. ' ----------------------------------------------------
  193. '  Prototype:   Demo
  194. ' --------------------------------------------------
  195. Sub Check1_Click ()
  196.   VSInform1.CustomFrame = Not VSInform1.CustomFrame
  197. End Sub
  198. Sub command1_click (Index As Integer)
  199.   mousepointer = 11
  200.   Select Case Index
  201.     Case 0    'Toolbox
  202.       ftoolbox.Show
  203.     Case 1    'Border FX
  204.       fFx.Show
  205.     Case 3    'Visual Clipboard
  206.       fclipbrd.Show
  207.     Case 4    'MDI
  208.       Child3.Show
  209.       Child2.Show
  210.       Child1.Show
  211.     Case 6    ' 16 & 32 bits
  212.       ffuture.Show
  213.     Case 7    ' EZ Printing
  214.       fEZPrint.Show 1
  215.     Case 8    ' ViewPort
  216.       fviewport.Show
  217.     Case 9    ' Visual Printer
  218.       fdesk.Show
  219.     Case 2: DoLicInfo
  220.     Case Else
  221.       MsgBox "Demo not available"
  222.   End Select
  223.   mousepointer = 0
  224. End Sub
  225. Sub DoDrawings ()
  226.   Dim i%, X%, Y%, NL, s$
  227.   ' draw some text on draw control
  228.   VSDraw1.TextColor = RGB(255, 255, 255)
  229.   For i = 0 To 3600 Step 200
  230.     VSDraw1.x1 = 20
  231.     VSDraw1.y1 = 55
  232.     VSDraw1.TextAngle = i
  233.     VSDraw1.TextOut = "VSView"
  234.   Next
  235.   s = "VSView Demo"
  236.   VSDraw1.FontSize = 24
  237.   VSDraw1.TextOut = s
  238.   VSDraw1.TextColor = 0
  239.   VSDraw1.x1 = VSDraw1.x1 + 2
  240.   VSDraw1.y1 = VSDraw1.y1 - 2
  241.   VSDraw1.TextOut = s
  242.   ' draw a polygon on draw control
  243.   VSDraw1.PenColor = RGB(0, 0, 255)
  244.   s = ""
  245.   For X = 0 To VSDraw1.ScaleWidth Step 2
  246.     Y = 160 + Cos(X) * (X - VSDraw1.ScaleWidth / 2) / 3
  247.     s = s + Str(X) + Str(Y)
  248.   Next
  249.   VSDraw1.PolyLine = s
  250. End Sub
  251. Sub DoLicInfo ()
  252.       Dim msg$, NL
  253.       NL = Chr$(13)
  254.       msg = "**** New Licensing Scheme ******************" + NL
  255.       msg = msg + "In response to numerous user requests, we have changed our licensing "
  256.       msg = msg + "scheme:" + NL + NL
  257.       msg = msg + "You no longer have to distribute the LIC file with your compiled "
  258.       msg = msg + "applications. As long as you have the LIC file installed on your "
  259.       msg = msg + "machine when you compile an application, vsView will not look for "
  260.       msg = msg + "a license file when you run it. This will simplify your installation "
  261.       msg = msg + "process and reduce the potential for version conflicts on your "
  262.       msg = msg + "users' machines."
  263.       msg = msg + NL + NL
  264.       msg = msg + "This also makes the VSVIEW.DEV file obsolete. It's not needed "
  265.       msg = msg + "anymore, and that's why you won't find it on the distribution "
  266.       msg = msg + "diskettes."
  267.       msg = msg + NL + NL
  268.       msg = msg + "In short:" + NL
  269.       msg = msg + "1) Forget the DEV files." + NL
  270.       msg = msg + "2) DO NOT DISTRIBUTE THE LIC FILE WITH YOUR APPLICATIONS!!!!"
  271.       MsgBox msg
  272. End Sub
  273. Sub Form_Load ()
  274.   ' center form
  275.   Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
  276.   Show
  277.   DoDrawings
  278. End Sub
  279. Sub Form_Unload (Cancel As Integer)
  280.   End
  281. End Sub
  282. Sub VSDraw1_DblClick ()
  283.   VSDraw1.Action = 5 ' copy
  284. End Sub
  285. Sub VSInForm1_ClickRButton (Button As Integer)
  286.   Select Case Button
  287.     Case 0
  288.       End
  289.     Case 1
  290.       MsgBox "VSView is only $99!  Call 1-510-547-7295 to order your copy today!"
  291.   End Select
  292. End Sub
  293.